home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / tttdem51.zip / IODEM7.PAS < prev    next >
Pascal/Delphi Source File  |  1989-02-28  |  977b  |  49 lines
  1. Program TestIO;
  2. {$V-}
  3. Uses Dos, Crt, IOTTT5;
  4.  
  5. TYPE
  6.   String1 = String[1];
  7. CONST
  8.   YNChars:set of char = ['y','Y','n','N',#13,#200,#208,#205,#203,#244,#24,#027];
  9. VAR
  10.   F1,
  11.   F2,
  12.   F3,
  13.   F4,
  14.   F5  : String1;
  15. BEGIN
  16.   F1 := 'Y';
  17.   F2 := 'Y';
  18.   F3 := 'Y';
  19.   F4 := 'Y';
  20.   F5 := 'Y';
  21.   Create_fields(5);
  22.   Add_Field(1, 5,2,5,2, 5,5);
  23.   Add_Field(2, 1,3,1,3, 6,6);
  24.   Add_Field(3, 2,4,2,4, 7,7);
  25.   Add_Field(4, 3,5,3,5, 8,8);
  26.   Add_Field(5, 4,1,4,1, 9,9);
  27.   String_Field(1,F1,'!');
  28.   String_Field(2,F2,'!');
  29.   String_Field(3,F3,'!');
  30.   String_Field(4,F4,'!');
  31.   String_Field(5,F5,'!');
  32.   Field_Rules(1,JumpIfFull,YNChars,[#0]);
  33.   Field_Rules(2,JumpIfFull,YNChars,[#0]);
  34.   Field_Rules(3,JumpIfFull,YNChars,[#0]);
  35.   Field_Rules(4,JumpIfFull,YNChars,[#0]);
  36.   Field_Rules(5,JumpIfFull,YNChars,[#0]);
  37.   Allow_Esc(True);
  38.   ClrScr;
  39.   Process_Input(1);
  40.   ClrScr;
  41.   Writeln(F1);
  42.   Writeln(F2);
  43.   Writeln(F3);
  44.   Writeln(F4);
  45.   Writeln(F5);
  46. END.
  47.  
  48.  
  49.